(Fbyte_code) <Bvarbind, Bunwind_protect>: Add

BEFORE/AFTER_POTENTIAL_GC.

diff --git a/src/bytecode.c b/src/bytecode.c
index a99860bd8cd06ddb626e4e35f24cef09fb0663b5..964dca8a830b2392e1dfffc36924eb0c2ba35aaf 100644 (file)
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -644,7 +644,10 @@ If the third argument is incorrect, Emacs may crash.")
        case Bvarbind+5:
          op -= Bvarbind;
        varbind:
+         /* Specbind can signal and thus GC.  */
+         BEFORE_POTENTIAL_GC ();
          specbind (vectorp[op], POP);
+         AFTER_POTENTIAL_GC ();
          break;
 
        case Bcall+6:
@@ -850,7 +853,10 @@ If the third argument is incorrect, Emacs may crash.")
          }
 
        case Bunwind_protect:
+         /* The function record_unwind_protect can GC.  */
+         BEFORE_POTENTIAL_GC ();
          record_unwind_protect (0, POP);
+         AFTER_POTENTIAL_GC ();
          (specpdl_ptr - 1)->symbol = Qnil;
          break;